set vala 3;
set valb 4;
set valc 3.14;

puts [expr $vala * $valb];
puts [expr $valb / $valc];
puts [expr $vala * $valc];

